﻿'Imports DevComponents.DotNetBar
Public Class FrmPMQuanLyNhaSach
    'Inherits DevComponents.DotNetBar.Office2007Form

    Private Sub BtnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnThoat.Click
        Me.Close()
    End Sub

    Private Sub BtnDangNhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDangNhap.Click
        FrmDangNhap.Show()
    End Sub

    Private Sub BtnLapTheKH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLapTheKH.Click
        Dim childForms As FrmTheKhachHang = New FrmTheKhachHang
        childForms.MdiParent = Me
        childForms.Show()
        childForms.Location = New Point(234, 122)
    End Sub

    Private Sub BtnNhapSach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNhapSach.Click
        Dim childForms As FrmNhapSach = New FrmNhapSach
        childForms.MdiParent = Me
        childForms.Show()
        childForms.Location = New Point(234, 122)
    End Sub

    Private Sub BtnHoaDon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHoaDon.Click
        FrmHoaDon.Show()
    End Sub

    Private Sub BtnThuTien_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnThuTien.Click
        FrmThuTien.Show()
    End Sub

    Private Sub BtnTraCuuSach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTraCuuSach.Click
        FrmTraCuuSach.Show()
    End Sub

    Private Sub BtnBaoCao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBaoCao.Click
    End Sub

    Private Sub ThemNhanVienTlStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThemNhanVienTlStrip.Click

    End Sub

    Private Sub LapTheKHTlStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapTheKHTlStrip.Click
        FrmTheKhachHang.Show()
    End Sub

    Private Sub XoaTheKHTlStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XoaTheKHTlStrip.Click
        FrmTheKhachHang.Show()
    End Sub

    Private Sub SuaTheKHTlStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SuaTheKHTlStrip.Click
        FrmTheKhachHang.Show()
    End Sub

    Private Sub LapPhieuNhapSachTlStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapPhieuNhapSachTlStrip.Click
        FrmNhapSach.Show()
    End Sub

    Private Sub XoaPhieuNhapSachTlStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XoaPhieuNhapSachTlStrip.Click
        FrmNhapSach.Show()
    End Sub

    Private Sub SuaPhieuNhapSachTlStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SuaPhieuNhapSachTlStrip.Click
        FrmNhapSach.Show()
    End Sub

    Private Sub LapHoaDonTlStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapHoaDonTlStrip.Click
        FrmHoaDon.Show()
    End Sub

    Private Sub XoaHoaDonTlStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XoaHoaDonTlStrip.Click
        FrmHoaDon.Show()
    End Sub

    Private Sub SuaHoaDonTlStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SuaHoaDonTlStrip.Click
        FrmHoaDon.Show()
    End Sub

    Private Sub TraCuuTlStrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCuuTlStrip.Click
        FrmTraCuuSach.Show()
    End Sub

    Private Sub BtnThayQuiDinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnThayQuiDinh.Click
        FrmQuyDinh.Show()
    End Sub

    Private Sub BtnQuanLyNV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnQuanLyNV.Click
        Dim childForms As FrmQuanLyNhanVien = New FrmQuanLyNhanVien
        childForms.MdiParent = Me
        childForms.Show()
        childForms.Location = New Point(234, 122)

    End Sub

    Private Sub FrmPMQuanLyNhaSach_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        End
    End Sub

End Class
